Sample Code - Preview Method

This sample code shows the use of the Preview Method (Report Object) Modify the following sample code to fit your needs.

    Dim crystalreport As CRPEAuto.Report
Dim repView As CRPEAuto.View
Dim crwApplication As CRPEAuto.Application

Private Sub Command1_Click()

'report object that view belongs to
Set crwApplication = CreateObject("Crystal.CRPE.Application")
Set crystalreport = crwApplication.OpenReport _
    ("c:\crw\reports\xtreme\wwsales.rpt")
Set repView = crystalreport.Preview
'call procedure to check repView.Report
Call RepCheck(crystalreport, repView.Report)
repView.Close

End Sub


Seagate Software IMG Holdings, Inc.
http://www.seagatesoftware.com
Support services:
http://support.seagatesoftware.com